From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 19 Jun 2019 21:49:13 +0000 (+0200)
Subject: Remove XEmacs compat code from pascal.el
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2757
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3c16eda5f1d207bf5d345a28ec19ca7afb79647d;p=emacs.git

Remove XEmacs compat code from pascal.el

* lisp/progmodes/pascal.el (pascal-mark-defun): Remove XEmacs compat.
---

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index cae514aa75b..26fb0a88c53 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -510,9 +510,7 @@ This puts the mark at the end, and point at the beginning."
   (push-mark)
   (pascal-end-of-defun)
   (push-mark)
-  (pascal-beg-of-defun)
-  (when (featurep 'xemacs)
-    (zmacs-activate-region)))
+  (pascal-beg-of-defun))
 
 (defun pascal-comment-area (start end)
   "Put the region into a Pascal comment.\\<pascal-mode-map>